home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form FrameDemo
- BackColor = &H00C0C0C0&
- BorderStyle = 1 'Fixed Single
- Caption = "Frame & Background Demo"
- ClientHeight = 4320
- ClientLeft = 1500
- ClientTop = 1455
- ClientWidth = 5970
- Height = 4725
- Left = 1440
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 4320
- ScaleWidth = 5970
- Top = 1110
- Width = 6090
- Begin Frame Frame1
- BackColor = &H00C0C0C0&
- Caption = "Picture Properties"
- Height = 1680
- Left = 3360
- TabIndex = 16
- Top = 1400
- Width = 2535
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "FramePicture"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 225
- Index = 0
- Left = 90
- TabIndex = 5
- Top = 300
- Value = -1 'True
- Width = 2100
- End
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "BackgroundPicture"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 225
- Index = 1
- Left = 90
- TabIndex = 6
- Top = 540
- Width = 2100
- End
- Begin PictureBox Image1
- Height = 645
- Index = 4
- Left = 1605
- Picture = GFRAMES.FRX:0000
- ScaleHeight = 41
- ScaleMode = 3 'Pixel
- ScaleWidth = 41
- TabIndex = 7
- Top = 900
- Width = 645
- End
- Begin PictureBox Image1
- Height = 645
- Index = 2
- Left = 945
- Picture = GFRAMES.FRX:463A
- ScaleHeight = 41
- ScaleMode = 3 'Pixel
- ScaleWidth = 41
- TabIndex = 8
- Top = 900
- Width = 645
- End
- Begin PictureBox Image1
- Height = 645
- Index = 0
- Left = 300
- Picture = GFRAMES.FRX:8C14
- ScaleHeight = 41
- ScaleMode = 3 'Pixel
- ScaleWidth = 41
- TabIndex = 9
- Top = 900
- Width = 645
- End
- End
- Begin Timer Timer1
- Interval = 1000
- Left = 5250
- Top = 4770
- End
- Begin Frame Frame3
- BackColor = &H00C0C0C0&
- Caption = "Frame Scaling Properties"
- Height = 1020
- Left = 30
- TabIndex = 27
- Top = 3150
- Width = 4095
- Begin HScrollBar HScroll1
- Height = 240
- Index = 0
- Left = 1260
- Max = 140
- TabIndex = 29
- Top = 330
- Width = 2400
- End
- Begin HScrollBar HScroll1
- Height = 240
- Index = 1
- Left = 1260
- Max = 140
- TabIndex = 28
- Top = 570
- Width = 2400
- End
- Begin Label Label2
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "0"
- Height = 195
- Index = 0
- Left = 3780
- TabIndex = 0
- Top = 360
- Width = 120
- End
- Begin Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Frame Scale X:"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 195
- Index = 0
- Left = 165
- TabIndex = 2
- Top = 330
- Width = 1080
- End
- Begin Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Frame Scale Y:"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 195
- Index = 1
- Left = 150
- TabIndex = 3
- Top = 585
- Width = 1080
- End
- Begin Label Label2
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "0"
- Height = 195
- Index = 1
- Left = 3780
- TabIndex = 30
- Top = 600
- Width = 120
- End
- End
- Begin AGAUGE Gauge1
- Angle = 0
- AutoRedraw = -1 'True
- AVersion = 2.5
- BackgroundColor = &H00FFFFFF&
- BevelInner = 0 ' 0 - None
- BevelOuter = 0 ' 0 - None
- BevelWidth = 2
- BorderType = 1 ' 1 - Bevel
- BorderWidth = 0
- FontID = 0
- FrameColor = &H0000C0C0&
- FrameScaleX = 1.1
- FrameScaleY = 1.1
- FrameStyle = 1 ' 1 - Circle
- Height = 3015
- Left = 30
- MouseControl = -1 'True
- OutlineAlign = 0 ' 0 - Left
- OutlineColor = &H00000000&
- OutlineTitle = ""
- OutlineWidth = 0
- Radius = 0
- Shape = ""
- TabIndex = 1
- Top = 60
- Value = 0
- Width = 3225
- XScale = 0
- YScale = 0
- ZLoad = GFRAMES.FRX:1228E
- End
- Begin Frame Frame4
- BackColor = &H00C0C0C0&
- Caption = "Color Properties"
- Height = 1170
- Left = 3360
- TabIndex = 21
- Top = 180
- Width = 2535
- Begin OptionButton Option3
- BackColor = &H00C0C0C0&
- Caption = "BackgroundColor"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 195
- Index = 1
- Left = 90
- TabIndex = 10
- Top = 570
- Width = 1600
- End
- Begin OptionButton Option3
- BackColor = &H00C0C0C0&
- Caption = "FrameColor"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 195
- Index = 0
- Left = 90
- TabIndex = 11
- Top = 330
- Value = -1 'True
- Width = 1600
- End
- Begin Label HColors
- BackColor = &H00808000&
- Height = 225
- Index = 9
- Left = 2190
- TabIndex = 26
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H000080FF&
- Height = 225
- Index = 4
- Left = 1035
- TabIndex = 12
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H00000000&
- Height = 225
- Index = 0
- Left = 120
- TabIndex = 17
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H00808080&
- Height = 225
- Index = 5
- Left = 1275
- TabIndex = 18
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H00FFFFFF&
- Height = 225
- Index = 1
- Left = 345
- TabIndex = 19
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H000000FF&
- Height = 225
- Index = 6
- Left = 1500
- TabIndex = 20
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H0000FF00&
- Height = 225
- Index = 2
- Left = 585
- TabIndex = 25
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H0000FFFF&
- Height = 225
- Index = 7
- Left = 1740
- TabIndex = 24
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H00FF0000&
- Height = 225
- Index = 3
- Left = 810
- TabIndex = 23
- Top = 825
- Width = 225
- End
- Begin Label HColors
- BackColor = &H00FF00FF&
- Height = 225
- Index = 8
- Left = 1965
- TabIndex = 22
- Top = 825
- Width = 225
- End
- End
- Begin Frame Frame2
- BackColor = &H00C0C0C0&
- Caption = "FrameStyle"
- Height = 1020
- Left = 4425
- TabIndex = 13
- Top = 3150
- Width = 1275
- Begin OptionButton Option2
- BackColor = &H00C0C0C0&
- Caption = "Rectangle"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 225
- Index = 2
- Left = 90
- TabIndex = 4
- Top = 705
- Width = 1100
- End
- Begin OptionButton Option2
- BackColor = &H00C0C0C0&
- Caption = "Circle"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 225
- Index = 1
- Left = 90
- TabIndex = 15
- Top = 495
- Width = 1095
- End
- Begin OptionButton Option2
- BackColor = &H00C0C0C0&
- Caption = "None"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 225
- Index = 0
- Left = 90
- TabIndex = 14
- Top = 270
- Width = 1125
- End
- End
- Sub Form_Load ()
- hscroll1(0) = gauge1.FrameScaleX * 100
- hscroll1(1) = gauge1.FrameScaleY * 100
- option2(gauge1.FrameStyle) = True
- Timer1_Timer
- End Sub
- Sub HColors_Click (index As Integer)
- If option3(0) Then
- gauge1.FrameColor = hcolors(index).BackColor
- gauge1.FramePicture = LoadPicture("")
- Else
- gauge1.BackgroundColor = hcolors(index).BackColor
- gauge1.BackgroundPicture = LoadPicture("")
- End If
- End Sub
- Sub HScroll1_Change (index As Integer)
- Select Case index
- Case 0
- gauge1.FrameScaleX = hscroll1(0) / 100
- label2(0) = hscroll1(0) / 100
- Case 1
- gauge1.FrameScaleY = hscroll1(1) / 100
- label2(1) = hscroll1(1) / 100
- End Select
- End Sub
- Sub HScroll1_Scroll (index As Integer)
- Select Case index
- Case 0
- gauge1.FrameScaleX = hscroll1(0) / 100
- label2(0) = hscroll1(0) / 100
- Case 1
- gauge1.FrameScaleY = hscroll1(1) / 100
- label2(1) = hscroll1(1) / 100
- End Select
- End Sub
- Sub Image1_Click (index As Integer)
- If option1(0) Then
- gauge1.FramePicture = Image1(index).Picture
- Else
- gauge1.BackgroundPicture = Image1(index).Picture
- End If
- End Sub
- Sub Option2_Click (index As Integer)
- gauge1.FrameStyle = index
- If index = 1 Then
- label1(1).Visible = False
- hscroll1(1).Visible = False
- label2(1).Visible = False
- Else
- label1(1).Visible = True
- hscroll1(1).Visible = True
- label2(1).Visible = True
- End If
- End Sub
- Sub Timer1_Timer ()
- numhours = Val(Format$(Now, "hh"))
- If numhours > 12 Then numhours = numhours - 12#
- nummins = Val(Format$(Now, "nn"))
- numsecs = Val(Format$(Now, "ss"))
- gauge1.NeedleID = 0
- gauge1.NeedleValue = numhours + nummins / 60#
- gauge1.NeedleID = 1
- gauge1.NeedleScaleID = 1
- gauge1.NeedleValue = nummins
- gauge1.NeedleID = 2
- gauge1.NeedleScaleID = 1
- gauge1.NeedleValue = numsecs
- End Sub
-